home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
grapprog
/
splt232w.zip
/
THP7475.ZIP
/
T3-14.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-07-21
|
411b
|
16 lines
10 OPEN "T3-14.PLT" FOR OUTPUT AS #1
20 PRINT #1,"IN;SP1;IP3650,2325,6650,5325;"
30 PRINT #1,"SC-1000,1000,-1000,1000;"
40 PRINT #1,"PA-800,800;"
50 GOSUB 130
60 PRINT #1,"PA200,800;"
70 GOSUB 130
80 PRINT #1,"PA-800,-200;"
90 GOSUB 130
100 PRINT #1,"PA200,-200;"
110 GOSUB 130
120 END
130 PRINT #1,"CI50;PR600,0;CI50;PR-300,-300;CI250;"
140 PRINT #1,"PR-300,-300;CI50;PR600,0;CI50;"
150 RETURN